home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 3.1 / Multimedia Showcase 3.1 (Macromedia Inc.)(ZSHOW31)(1994).ISO / mac / SAVE DISABLED / Fontographer / Fontographer® 4.1 Demo / FontographerÆ 4.1 Demo.rsrc / STR#_6021.txt < prev    next >
Text File  |  1994-12-15  |  8KB  |  481 lines
  1. 0 setgray
  2.  
  3. }B
  4.  
  5. _m
  6.  
  7. grestore
  8.  
  9. end Key_Map_Dict begin _char show end
  10.  
  11. _minx _suboffset _miny _adddescent
  12.  
  13. _minx _suboffset _miny _adddescent _m
  14.  
  15. _ptsize dup 1.25 mul _minx _miny _ptsize 1.25 mul add rrectpath clip newpath
  16.  
  17. gsave
  18.  
  19. grestore
  20.  
  21. 0 _smallsize 1.25 mul neg _m _MapWid show
  22.  
  23. _minx _ptsize add _miny translate 90 rotate
  24.  
  25. grestore
  26.  
  27. 0 _smallsize .4 mul _m _MapOfs show
  28.  
  29. _minx _miny translate 90 rotate
  30.  
  31. gsave
  32.  
  33. _code show
  34.  
  35. _minx _ptsize _code stringwidth pop sub 2 div add _miny _smallsize 1.25 mul sub _m
  36.  
  37. descFont _smallsize scalefont setfont
  38.  
  39. gsave
  40.  
  41. grestore
  42.  
  43. } if
  44.  
  45. -2 -2 r_l 0 1 r_l -3 0 r_l 0 2 r_l 3 0 r_l 0 1 r_l closepath eofill
  46.  
  47. _minx _smallsize 1.25 mul sub _miny _maxy add 2 div _m
  48.  
  49. _ptsize _minx _suboffset _miny vline stroke initclip
  50.  
  51. _ofsflag {
  52.  
  53. _ptsize _widx _miny vline stroke
  54.  
  55. _ptsize _minx _miny _ptsize _perdesc mul add hline stroke
  56.  
  57. fill grestore stroke
  58.  
  59. _ptsize dup _minx _miny _ptsize add rrectpath gsave _pergray setgray
  60.  
  61. _ptsize 1 add dup _minx .5 sub _miny .5 add _ptsize add rrectpath clip newpath
  62.  
  63. hairwid [.24 1.44] 0 setdash
  64.  
  65. gsave
  66.  
  67. /_maxy _miny _ptsize add def
  68.  
  69. /_widx _minx _ptsize _wid _em div mul add _suboffset def
  70.  
  71. /_maxx _minx _ptsize add def
  72.  
  73. /_wid xdf
  74.  
  75. /_MapWid xdf
  76.  
  77. /_ofsflag xdf
  78.  
  79. /_MapOfs xdf
  80.  
  81. /_char xdf
  82.  
  83. /_code xdf
  84.  
  85. /_minx xdf
  86.  
  87. /_miny xdf
  88.  
  89. /_charofs xdf
  90.  
  91. /_ptsize xdf
  92.  
  93. /_pergray xdf
  94.  
  95. Key_Map_Dict begin
  96.  
  97. /Key_Map_Char{
  98.  
  99. /Key_Get_XY{Key_Next_Char Key_Map_Dict begin curx cury end}B
  100.  
  101. Init_Key_Pos
  102.  
  103. /Init_Key_Pos{Key_Map_Dict begin /xpos 0 def /ypos 0 def per_to_pos /xpos -1 def end}B
  104.  
  105. {pop 0 Next_Line}if def per_to_pos end}B
  106.  
  107. /Key_Next_Char{Key_Map_Dict begin /xpos xpos 1 add dup num_x_pos ge
  108.  
  109. end
  110.  
  111. /Next_Line{/ypos ypos 1 add dup num_y_pos ge{pop 0 showpage _DoPageHeader}if def}B
  112.  
  113. /cury _GetTM ypos 1 add .12 mul _GetTM _GetBM sub mul sub def}B
  114.  
  115. /per_to_pos{/curx xpos .5 add .12 mul _GetRM _GetLM sub mul _GetLM add def
  116.  
  117. /num_x_pos 8 def /num_y_pos 8 def
  118.  
  119. /_adddescent{_ptsize _perdesc mul add}B
  120.  
  121. /_suboffset{_ofsflag {_charofs _ptsize mul _em div sub}if}B
  122.  
  123. /_perdesc _descent _em div def
  124.  
  125. /_perasc _ascent _em div def
  126.  
  127. /_smallsize 6 def
  128.  
  129. /Key_Map_Dict 37 dict def Key_Map_Dict begin
  130.  
  131. end}B
  132.  
  133. grestore
  134.  
  135. ibutwid mul ibutleft add twa exch _hdldsize mul ibutop sub neg _m show
  136.  
  137. /ibutwid ibutright ibutleft sub tw2 sub def
  138.  
  139. ibutleft twa ibutbot ibutright tws ibutop rectpath clip newpath
  140.  
  141. descFont _hdchsize scalefont setfont
  142.  
  143. gsave
  144.  
  145. _PageHeaderDict begin
  146.  
  147. /InsetShow{
  148.  
  149. end}B
  150.  
  151. grestore
  152.  
  153. butop boxsize .6 mul sub _m show
  154.  
  155. butwid 1 index stringwidth pop sub 2 div butleft add
  156.  
  157. descFont boxsize 3 div scalefont setfont 0 setgray
  158.  
  159. butleft butbot butright butop rectpath clip newpath
  160.  
  161. ibutleft ibutbot ibutright ibutop _ibut
  162.  
  163. /ibutbot butbot _smove add def
  164.  
  165. /ibutop butop _smove sub def
  166.  
  167. /ibutright right tws def
  168.  
  169. /ibutleft butright twa def
  170.  
  171. butleft butbot butright butop _rbut
  172.  
  173. gsave butcolor setgray fill grestore 0 setgray hairwid stroke
  174.  
  175. dx dy left top rrectpath
  176.  
  177. /clipheight boxsize _lmove 2 mul sub def 1 setlinewidth
  178.  
  179. /butright left butwid add twa def
  180.  
  181. /butbot top boxsize sub tws def
  182.  
  183. /butwid dx 3 div tw2 sub def
  184.  
  185. /dy boxsize tw2 add def
  186.  
  187. /dx right left sub def
  188.  
  189. /butleft left twa def
  190.  
  191. imagearea /butop top tws def
  192.  
  193. gsave
  194.  
  195. _PageHeaderDict begin
  196.  
  197. /_PageHeader{
  198.  
  199. end
  200.  
  201. /_hdchsize 10 def
  202.  
  203. /_hdldsize 12 def
  204.  
  205. /boxsize 57 def
  206.  
  207. /_PageHeaderDict 39 dict def _PageHeaderDict begin
  208.  
  209. grestore end}B
  210.  
  211. 1 setgray fill
  212.  
  213. _leftl _topl _l _leftl _bottoml _l closepath
  214.  
  215. left bottom _m left top _l right top _l _rightl _topl _l
  216.  
  217. _leftl _bottoml _rightl _topl rectpath butcolor setgray fill
  218.  
  219. .6 setgray fill
  220.  
  221. _lmove _smove sub _shadow
  222.  
  223. _lefts _bottoms _m _rightl _leftl sub _topl _bottoml sub
  224.  
  225. _smove _shadow 0 setgray fill
  226.  
  227. left bottom _m _rights _lefts sub _tops _bottoms sub
  228.  
  229. /_rights right _smove sub def
  230.  
  231. /_bottoms bottom _smove add def
  232.  
  233. /_lefts left _smove add def
  234.  
  235. /_tops top _smove sub def
  236.  
  237. /_rightl right _lmove sub def
  238.  
  239. /_bottoml bottom _lmove add def
  240.  
  241. /_leftl left _lmove add def
  242.  
  243. /_topl top _lmove sub def
  244.  
  245. rbutdict begin storerect gsave
  246.  
  247. /_rbut{
  248.  
  249. end
  250.  
  251. 0 _disty _move 2 mul add neg r_l closepath}B
  252.  
  253. _move dup r_l _distx 0 r_l 0 _disty r_l _move dup r_l
  254.  
  255. /_shadow{/_move xdf /_disty xdf /_distx xdf
  256.  
  257. /rbutdict 17 dict def rbutdict begin
  258.  
  259. grestore end}B
  260.  
  261. left bottom right top rectpath hairwid 0 setgray stroke
  262.  
  263. left _tops right top rectpath fill
  264.  
  265. left bottom _lefts top rectpath 0 setgray fill
  266.  
  267. left bottom right top rectpath 1 setgray fill
  268.  
  269. /_rights right _smove sub def
  270.  
  271. /_bottoms bottom _smove add def
  272.  
  273. /_lefts left _smove add def
  274.  
  275. /_tops top _smove sub def
  276.  
  277. ibutdict begin gsave storerect
  278.  
  279. /_ibut{
  280.  
  281. /ibutdict 13 dict def
  282.  
  283. end}B
  284.  
  285. grestore
  286.  
  287. _saveLeading _SetLeading _saveRM _SetRM _saveLM _SetLM
  288.  
  289. tws _SetRM _WrapSpaceShow
  290.  
  291. _hdldsize _SetLeading ( ) _SetSpace ibutleft twa _SetLM ibutright
  292.  
  293. /_saveLeading _GetLeading def /_saveRM _rightm def /_saveLM _leftm def
  294.  
  295. ibutwid mul ibutleft add twa exch _hdldsize mul ibutop sub neg _m
  296.  
  297. descFont _hdchsize scalefont setfont
  298.  
  299. _y _hdldsize mul sub rrectpath clip newpath
  300.  
  301. /_y xdf _hdldsize mul ibutwid exch ibutleft twa ibutop
  302.  
  303. /ibutwid ibutright ibutleft sub tw2 sub def
  304.  
  305. gsave
  306.  
  307. _PageHeaderDict begin
  308.  
  309. /NoticeShow{
  310.  
  311. }forall end}B
  312.  
  313. {_NextLine}if show}if
  314.  
  315. {_IntToChar dup stringwidth pop currentpoint pop add _rightm ge
  316.  
  317. {cr_wrap not
  318.  
  319. /_WrapShow{WrapDict begin
  320.  
  321. /cr_wrap{do_cr_wrap{dup 13 eq exch dup 10 eq 3 -1 roll or{_NextLine true}{false}ifelse}{false}ifelse}B
  322.  
  323. }forall end _saveLM _SetLM}B
  324.  
  325. dup show _space eq _first and {currentpoint pop _SetLM /_first false def}if
  326.  
  327. {_IntToChar dup stringwidth pop currentpoint pop add _rightm ge{_NextLine}if
  328.  
  329. /_WrapSpaceShow{WrapDict begin /_first true def /_saveLM _leftm def
  330.  
  331. /_IntToChar{WrapDict begin _ch exch 0 exch put _ch 1 string copy end}B
  332.  
  333. currentpoint _botm le {showpage _DoPageHeader}if pop end}B
  334.  
  335. /_NextLine{WrapDict begin _leftm _MoveX _leading neg _RMoveY
  336.  
  337. /_Per_RMoveX{XPer_to_Abs _RMoveX}B
  338.  
  339. /_Per_MoveX{XPer_to_Abs _GetLM add _MoveX}B
  340.  
  341. /Str_WidX_to_XPer{/_per xdf dup stringwidth pop Abs_to_XPer _per sub neg}B
  342.  
  343. /_per 0 def
  344.  
  345. /Abs_to_XPer{_GetRM _GetLM sub div}B
  346.  
  347. /XPer_to_Abs{_GetRM _GetLM sub mul}B
  348.  
  349. /_RMoveY{0 exch r_m}B
  350.  
  351. /_RMoveX{0 r_m}B
  352.  
  353. /_MoveY{currentpoint pop exch _m}B
  354.  
  355. /_MoveX{currentpoint exch pop _m}B
  356.  
  357. /_GetBM{WrapDict /_botm get}B
  358.  
  359. /_SetBM{/_botm _PutWrap}B
  360.  
  361. /_GetTM{WrapDict /_topm get}B
  362.  
  363. /_SetTM{/_topm _PutWrap}B
  364.  
  365. /_GetRM{WrapDict /_rightm get}B
  366.  
  367. /_SetRM{/_rightm _PutWrap}B
  368.  
  369. /_GetLM{WrapDict /_leftm get}B
  370.  
  371. /_SetLM{/_leftm _PutWrap}B
  372.  
  373. /_SetSpace{/_space _PutWrap}B
  374.  
  375. /_ScaleFont{dup _SetLeading scalefont}B
  376.  
  377. /_GetLeading{WrapDict /_leading get}B
  378.  
  379. /_SetLeading{/_leading _PutWrap}B
  380.  
  381. /_DoPageHeader{WrapDict begin PageHeader _leftm _topm _leading sub _m end DoSetup}B
  382.  
  383. /DoSetup{}B
  384.  
  385. /_SetPageHeader{/PageHeader _PutWrap}B
  386.  
  387. _InitText
  388.  
  389. _leftm _topm _leading sub _m /PageHeader{}B end}B
  390.  
  391. imagearea /_topm top def /_leftm left def /_botm bottom def /_rightm right def
  392.  
  393. /_InitText{WrapDict begin
  394.  
  395. /_PutWrap{exch WrapDict 3 1 roll put}B
  396.  
  397. end
  398.  
  399. /_leading 12 def
  400.  
  401. /_space ( ) def
  402.  
  403. /_ch ( ) def
  404.  
  405. WrapDict begin
  406.  
  407. /WrapDict 35 dict def
  408.  
  409. /tws{6 sub}B
  410.  
  411. /twa{6 add}B
  412.  
  413. /tw2 12 def
  414.  
  415. /butcolor .9 def
  416.  
  417. /_smove 2 def
  418.  
  419. /_lmove 3 def
  420.  
  421. /_descent _em _ascent sub def
  422.  
  423. /_ascent _em _ascper mul def
  424.  
  425. /_ascper ^W def
  426.  
  427. /_em ^G def
  428.  
  429. /hline{_m 0 r_l}B
  430.  
  431. /vline{_m 0 exch r_l}B
  432.  
  433. /rrectpath{_m 1 index 0 r_l neg 0 exch r_l neg 0 r_l closepath}B
  434.  
  435. right bottom _l left bottom _l closepath end}B
  436.  
  437. /rectpath{Rect_Dict begin storerect left top _m right top _l
  438.  
  439. /Rect_Dict 5 dict def
  440.  
  441. /hairwid{hairline setlinewidth}B
  442.  
  443. /hairline 1 0 itransform dup mul exch dup mul add sqrt .24 lt{.25}{0}ifelse def
  444.  
  445. /descFont /|______Helvetica findfont def
  446.  
  447. (|______Helvetica) RF
  448.  
  449. _rr 8 add _rr storerect grestore}B
  450.  
  451. /imagearea{gsave clippath pathbbox 8 sub _rr 8 sub _rr 8 add
  452.  
  453. /_rr{4 1 roll}B
  454.  
  455. /storerect{/top xdf/right xdf/bottom xdf/left xdf}B
  456.  
  457. {erasepage initgraphics}ifelse/CurPage CurPage 1 add def end}B
  458.  
  459. /showpage{Dummy begin CorrectPage{systemdict /showpage get exec}
  460.  
  461. /CorrectPage{CurPage Last_Page gt Last_Page 9999 ne and{quit}if CurPage First_Page ge}B
  462.  
  463. /r_l{RTA _l}B
  464.  
  465. /r_m{RTA _m}B
  466.  
  467. /_m{_dr moveto}B
  468.  
  469. /_l{_dr lineto}B
  470.  
  471. /RCTA{3{RTA 6 2 roll}repeat}B
  472.  
  473. /RTA{exch currentpoint 4 1 roll add 3 1 roll add}B
  474.  
  475. /_dr{transform round exch round exch itransform}B
  476.  
  477. /xdf{exch def}B
  478.  
  479. /B{bind def}bind def
  480.  
  481.